home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byt85feb.lbr / FTEXT.BAS < prev    next >
BASIC Source File  |  1985-09-15  |  384b  |  14 lines
  1. 140 ! STRAIGHT LINE CALCULATION
  2. 150 S1,S2=0
  3. 160 D=INT(N/10)
  4. 170 FOR J=0 TO D-1
  5. 180 S1=S1+X(J)
  6. 190 S2=S2+X(N-J-1)
  7. 200 NEXT J
  8. 210 X1=S1/D @ X2=S2/D
  9. 220 M=(X2-X1)/(N-D)
  10. 230 B=(X1+X2)/2-M*N/2
  11. 270 X(J)=X(J)-M*J-B
  12. 970 X1(0)=X1(0)+B
  13. 1210 X1(J)=X1(J)+M*J+B
  14.